home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update20.zoo / curses / diffs
Encoding:
Text File  |  1992-04-19  |  16.5 KB  |  674 lines
  1. *** 1.10    1992/03/06 19:40:24
  2. --- Changelo    1992/04/19 16:43:23
  3. ***************
  4. *** 109,111 ****
  5. --- 109,143 ----
  6.       back out the above change to xconsole as it plays havoc with
  7.   international kbds where some of the more regular keys are entered by
  8.   alt'ing.
  9. + 
  10. + -------------------------- Patchlevel  11 ---------------------------------
  11. + 
  12. + tgetent.c:: ++jrb
  13. +     update default term entry to the one Michal posted.
  14. + 
  15. + xconsole.c:: ++jrb
  16. +     sync up with console.c: alexander lehmann had a
  17. +   fix there for a bug where console i/o would get stuck when a interrupt
  18. +   was caught and it occured when the input buffer was not empty.
  19. + 
  20. + tgetent.c:: Michal
  21. +     when I needed it I found that our tgetent routine is buggy since it
  22. +     does not process correctly terminal descriptions with 'tc=...'
  23. +     capabilities.  It will also barf on unlikely but legal termcap files
  24. +     where terminal names are split across escaped lines.  Use of
  25. +     a static fopenp() does not help either, since that means that
  26. +     forms of PATH you can use there are more restrictive than in other
  27. +     places.  Therefore I rewrote that whole file quite a bit.
  28. +     tgetent() now is maybe too permissible but I do not think that
  29. +     it will exclude a valid termcap description.
  30. + 
  31. +     One more modification.  When default terminal description is in use
  32. +     then I am filling values for 'co' and 'li' from Line-A variables
  33. +     instead of using a hardwired stuff.
  34. + 
  35. + xconsole.c:: ++jrb
  36. +     sync up with lib/console.c again. (andreas's change)
  37. +     -- console.c (raw_in): allow typeahead (which is only available at
  38. +         GEMDOS level).
  39. + 
  40. + -------------------------- Patchlevel  12 ---------------------------------
  41. *** 1.9    1992/03/06 19:40:24
  42. --- PatchLev.h    1992/04/19 16:43:24
  43. ***************
  44. *** 1,5 ****
  45.   /*
  46. !  *    PathLevel: 11
  47.    *
  48.    *    the Patch Level above is to identify the version
  49.    *    of the all the files in this directory. given the above
  50. --- 1,5 ----
  51.   /*
  52. !  *    PathLevel: 12
  53.    *
  54.    *    the Patch Level above is to identify the version
  55.    *    of the all the files in this directory. given the above
  56. *** 1.4    1991/05/04 18:38:14
  57. --- makefile.16    1992/04/19 16:43:29
  58. ***************
  59. *** 9,15 ****
  60.   
  61.   MODEL = -I. -mshort
  62.   DEFINES = -DDGK -DGEMDOS
  63. ! COPTS= -O -fomit-frame-pointer -fcombine-regs -fstrength-reduce \
  64.    -DNDEBUG $(DEFINES) $(XFLAGS)
  65.   
  66.   # normal CFLAGS
  67. --- 9,15 ----
  68.   
  69.   MODEL = -I. -mshort
  70.   DEFINES = -DDGK -DGEMDOS
  71. ! COPTS= -O -fomit-frame-pointer -fstrength-reduce \
  72.    -DNDEBUG $(DEFINES) $(XFLAGS)
  73.   
  74.   # normal CFLAGS
  75. *** 1.4    1991/05/04 18:38:14
  76. --- makefile.32    1992/04/19 16:43:29
  77. ***************
  78. *** 9,15 ****
  79.   
  80.   MODEL = -I.
  81.   DEFINES = -DDGK -DGEMDOS
  82. ! COPTS= -O -fomit-frame-pointer -fcombine-regs -fstrength-reduce \
  83.    -DNDEBUG $(DEFINES) $(XFLAGS)
  84.   
  85.   # normal CFLAGS
  86. --- 9,15 ----
  87.   
  88.   MODEL = -I.
  89.   DEFINES = -DDGK -DGEMDOS
  90. ! COPTS= -O -fomit-frame-pointer -fstrength-reduce \
  91.    -DNDEBUG $(DEFINES) $(XFLAGS)
  92.   
  93.   # normal CFLAGS
  94. *** 1.5    1991/05/04 18:38:14
  95. --- tgetent.c    1992/04/19 16:43:33
  96. ***************
  97. *** 63,68 ****
  98. --- 63,73 ----
  99.    *
  100.    *    Modification by ERS: if no termcap file can be found, then
  101.    *    a default termcap is used (this is for GEMDOS).
  102. +  *
  103. +  *      Further mods by MJ: original routines fail to proces valid
  104. +  *      termcap files - replaced with new versions.
  105. +  *      Atari specific: default termcap used when nothing better is
  106. +  *      around reads a number of rows and colums from Line-A variables.
  107.    *    
  108.    *  RETURNS
  109.    *
  110. ***************
  111. *** 86,91 ****
  112. --- 91,97 ----
  113.   #include <stdio.h>
  114.   #include <string.h>
  115.   #include <termcap.h>
  116. + #include <ctype.h>
  117.   
  118.   #ifndef _COMPILER_H
  119.   #  include <compiler.h>
  120. ***************
  121. *** 102,115 ****
  122.   
  123.   # ifdef DGK
  124.   # define DEFAULT_ROOT "termcap"        /* name without path component */
  125.     static FILE *fopenp __PROTO((char *name, char *mode, char *pathname));
  126.   # define DEFAULT_FILE "\\etc\\termcap"
  127.   # else
  128.   # define DEFAULT_FILE "/etc/termcap"    /* default termcap filename */
  129.   # endif
  130. ! __EXTERN char *fgetlr __PROTO((char *bp, int bpsize, FILE *fp));
  131.   static FILE *find_file __PROTO((char *));
  132.   static int gotcha __PROTO((char *bp, char *name));
  133.   
  134.   char *_tcpbuf;                /* Place to remember buffer pointer */
  135.   
  136. --- 108,126 ----
  137.   
  138.   # ifdef DGK
  139.   # define DEFAULT_ROOT "termcap"        /* name without path component */
  140. + /**
  141.     static FILE *fopenp __PROTO((char *name, char *mode, char *pathname));
  142. + **/
  143.   # define DEFAULT_FILE "\\etc\\termcap"
  144.   # else
  145.   # define DEFAULT_FILE "/etc/termcap"    /* default termcap filename */
  146.   # endif
  147. ! /* __EXTERN char *fgetlr __PROTO((char *bp, int bpsize, FILE *fp)); */
  148. ! static int build_entry __PROTO((char *bp, char *stop, FILE *fp, char *name));
  149.   static FILE *find_file __PROTO((char *));
  150. + /**
  151.   static int gotcha __PROTO((char *bp, char *name));
  152. + **/
  153.   
  154.   char *_tcpbuf;                /* Place to remember buffer pointer */
  155.   
  156. ***************
  157. *** 139,145 ****
  158.    *        Return NO_ENTRY status.
  159.    *        End if
  160.    *    End tgetent
  161. !  *            
  162.    */
  163.   
  164.   int tgetent(bp,name)
  165. --- 150,167 ----
  166.    *        Return NO_ENTRY status.
  167.    *        End if
  168.    *    End tgetent
  169. !  *
  170. !  *    Modification by Michal Jagerman (April of 1992):
  171. !  *      The "While records left to process" is too simple minded
  172. !  *      since termcap entry in a buffer can be spliced from
  173. !  *    multiple pieces by using "tc" capability. Therefore
  174. !  *      we delegete the task of termcap buffer filling to
  175. !  *      a specialized internal function 'build_entry()'. This
  176. !  *      function also solves a problem of opening a termcap file
  177. !  *      in a 'wrong' mode by cleaning a termcap buffer from all
  178. !  *      leftovers.
  179. !  *
  180. !  *  
  181.    */
  182.   
  183.   int tgetent(bp,name)
  184. ***************
  185. *** 157,175 ****
  186.           return(NO_FILE);
  187.       }
  188.       } else {
  189. !     while (fgetlr(bp,BUFSIZE,fp)) {
  190. !         if (gotcha(bp,name)) {
  191. !         fclose(fp);
  192. !         if (bp[(int)strlen(bp)-1] != '\n') {
  193. !             return(TRUNCATED);
  194. !         } else {
  195. !             return(SUCCESS);
  196.           }
  197.           }
  198.       }
  199. !     return(NO_ENTRY);
  200.       }
  201.   }
  202.   
  203.   /*
  204.    *  INTERNAL FUNCTION
  205. --- 179,371 ----
  206.           return(NO_FILE);
  207.       }
  208.       } else {
  209. !     *bp++ = ':';
  210. !     return (build_entry(bp, bp + BUFSIZE - 1, fp, name));
  211. !     }
  212. ! }
  213. ! 
  214. ! /*
  215. !  *  INTERNAL FUNCTION
  216. !  *
  217. !  *    build_entry    construct termcap entry in a given buffer
  218. !  *
  219. !  *  SYNOPSIS
  220. !  *
  221. !  *    static int build_entry(bp, stop, fp, name)
  222. !  *    char *bp, *stop, *name;
  223. !  *      FILE *fp;
  224. !  *
  225. !  *  DESCRIPTION
  226. !  *
  227. !  *      For a given name build in a buffer bp a termcap description
  228. !  *      using a contents of file fp.  Continue this until the entry
  229. !  *      is complete or we reached stop.  Concatenate entries if
  230. !  *      required by tc capability.   White space characters and
  231. !  *      backslashes escaping newlines are not copied into bp.
  232. !  *      Returns SUCCESS if there was no problems, NO_ENTRY if an
  233. !  *      entry with given name was not found and TRUNCATED if we
  234. !  *      run out of a buffer space or continuation entry specified
  235. !  *      with tc was not found
  236. !  *
  237. !  *  BUGS
  238. !  *
  239. !  *      Termcap specifications require for tc to be the last capability
  240. !  *      for the given name.  This is not enforced but anything which
  241. !  *      follows tc in the same description will be discarded.
  242. !  *      It is not entirely clear what we should return when continuation
  243. !  *      specified with tc failed.
  244. !  *      Other stuff which goes beyond termcap specs can be accepted.
  245. !  *      Terminal names starting with '#' are not accepted.
  246. !  *      Continuation with names over 127 characters long will likely bomb!
  247. !  *
  248. !  *  AUTHOR
  249. !  *
  250. !  *    Michal Jaegermann
  251. !  *
  252. !  */
  253. ! static int build_entry(bp, stop, fp, name)
  254. ! char *bp, *stop, *name;
  255. ! FILE *fp;
  256. ! {
  257. !     int c;
  258. !     int so_far, skip_all = 0;
  259. !     char *np;
  260. !     char nbuf[128];
  261. !     static int _tgetc __PROTO((FILE *fp));
  262. ! 
  263. !     /* rewind file - we may seek for a continuation entry */
  264. !     rewind(fp);
  265. ! 
  266. !     /*
  267. !      * this is FSM - sort of 
  268. !      */
  269. !     while (EOF != (c = getc(fp))) {
  270. !      /*
  271. !       * we are looking at a comment - skip it
  272. !       */
  273. !     if ('#' == c) {
  274. !         do {
  275. !         if (EOF == (c = getc(fp)))
  276. !             return NO_ENTRY;
  277. !         } while ('\n' != c);
  278. !     }
  279. !     /*
  280. !      * empty line or we finished comment traversal;
  281. !      * a little bit to good - but valid termcap file will be
  282. !      * stil accepted
  283. !      */
  284. !     if (isspace(c))
  285. !         continue;
  286. !     /*
  287. !      * try matching name
  288. !      */
  289. !     np = name;
  290. !     while (*np == c) {
  291. !         np += 1;
  292. !         c = _tgetc(fp);
  293. !     }
  294. !     /*
  295. !      * we finished traversing our name - is this really a match ?
  296. !      */
  297. !     if (*np == '\0') {
  298. !         if (c == '|' || c == ':')
  299. !         break; /* we have a match */
  300. !         if  (c == EOF)
  301. !         return (TRUNCATED); /* match - but we wanted more */
  302. !     }
  303. !     /*
  304. !      * no match - skip until next name or next entry
  305. !      * if we are past all possible names here 
  306. !      */
  307. !     skip_all = 0;
  308. !     while ('\n' != c) {
  309. !         if (':' == c)
  310. !         skip_all = 1; /* we are past all valid names for this entry */
  311. !         if ('|' == c && 0 == skip_all)
  312. !         break;
  313. !         c = _tgetc(fp);
  314. !     }
  315. !     }
  316. !     if (EOF == c)
  317. !     return (NO_ENTRY);
  318. !     while (':' != c)    /* skip the remainig variants of terminal names */
  319. !     c = _tgetc(fp); /* we do not want any mixups later             */
  320. ! 
  321. !     /*
  322. !      * at last we got it - copy terminal description into bp
  323. !      */
  324. !     so_far = 0;  /* rough indicator how far we are into a capability */
  325. !     while ('\n' != (c = _tgetc(fp))) {
  326. !     if (0 == so_far && !isalpha(c))
  327. !         continue;     /* do not bother with all kind of spurious stuff */
  328. !     so_far++;
  329. !     if (1 == so_far && 't' == c ) {
  330. !         /* a special case - maybe we have "tc=" string? */
  331. !         if ((bp + 3) > stop) {
  332. !         ungetc(c, fp);
  333. !         continue;
  334. !         /* cheating with so_far, but we want to skip this case! */
  335. !         }
  336. !         *bp++ = c;
  337. !         c = _tgetc(fp);
  338. !         if ('c' == c) {
  339. !         *bp++ = c;
  340. !         c = _tgetc(fp);
  341. !         if ('=' == c) {
  342. !             /* we will continue with a name which follows */
  343. !             bp -= 2;
  344. !             /* copy new name to nbuf */
  345. !             np = nbuf;
  346. !             while (':' != (c = _tgetc(fp))) {
  347. !             if ('\n' == c || EOF == c)
  348. !                 break;
  349. !             *np++ = c;
  350. !             }
  351. !             *np = '\0';
  352. !             return (SUCCESS == build_entry(bp, stop, fp, nbuf) ?
  353. !                 SUCCESS : TRUNCATED);
  354.           }
  355.           }
  356. +     }  /* end of 'tc=' check */
  357. +     if (':' == c) /* literal colon cannot occur in capabilities strings -
  358. +                * one has to use '\072' instead */
  359. +         so_far =  0;
  360. +     *bp++ = c;
  361. +     if (bp >= stop)
  362. +         return(TRUNCATED);
  363. +     }
  364. +     if (bp < stop)
  365. +     *bp = '\0';
  366. +     return(SUCCESS);
  367. + }
  368. + 
  369. + /*
  370. +  * Auxilary function to read a character from a text file
  371. +  * with skipping escaped line terminators; any escaped
  372. +  * '\n' will be replaced by a character which follows.
  373. +  * After escape any number of ^M's will vanish,
  374. +  * i.e a string of three characters '\\', 0x0d, 'a' will read
  375. +  * as a string of two characters '\\', 'a' and so on...
  376. +  * We do not tolerate such garbage in text files. :-)
  377. +  */
  378. + static int _tgetc(fp)
  379. + FILE *fp;
  380. + {
  381. +     int c;
  382. + 
  383. +     if ('\\' == (c = getc(fp))) {
  384. +     while ('\r' == (c = getc(fp)))
  385. +         ;                /* Messy stuff - go away */
  386. +     if (c != '\n') {
  387. +         ungetc(c, fp);
  388. +         return ('\\');
  389.       }
  390. !     c = getc(fp);
  391.       }
  392. +     return(c);
  393.   }
  394. + 
  395. + 
  396.   
  397.   /*
  398.    *  INTERNAL FUNCTION
  399. ***************
  400. *** 234,244 ****
  401.    *
  402.    */
  403.   
  404. ! static char term_default[] = "df|default|Atari default\
  405. ! :al=\\EL:am:bs:cd=\\EJ:ce=\\EK:cl=\\EE:cm=\\EY%+ %+ :co#80:dl=\\EM\
  406. ! :do=\\EB:eo:ho=\\EH:is=\\Eq\\EE\\Ee\\Ev:it#8:le=^H:li#25:ll=\\EY9!\
  407. ! :me=\\Eq:mr=\\Ep:nd=\\EC:rc=\\Ek:sc=\\Ej:se=\\Eq:so=\\Ep:ta=^I\
  408. ! :up=\\EA:ve=\\Ee:vi=\\Ef:";
  409.   
  410.   static FILE *find_file(bp)
  411.   char *bp;
  412. --- 430,455 ----
  413.    *
  414.    */
  415.   
  416. ! #ifdef GEMDOS
  417. ! /*
  418. !  * we do not really need the following part once the stuff is in
  419. !  * our termcap  buffer
  420. !  */
  421. ! /* "df|default|Atari default"  */
  422. ! /*
  423. !  * this values we will try to fill to fit a given display
  424. !  */
  425. ! /* :co#80:li#25:\  */
  426. ! 
  427. ! static char term_default[] = "\
  428. ! :al=\\EL:am:bs:cd=\\EJ:ce=\\EK:cl=\\EE:cm=\\EY%+ %+ :dl=\\EM\
  429. ! :do=\\EB:eo:ho=\\EH:is=\\Eq\\EE\\Ee\\Ev:it#8:pt:kb=^H:ll=\\EY9!\
  430. ! :me=\\Eq:mr=\\Ep:le=\\ED:nd=\\EC:rc=\\Ek:sc=\\Ej:se=\\Eq:so=\\Ep:ta=^I\
  431. ! :up=\\EA:ve=\\Ee:vi=\\Ef:km:bl=^G:cr=^M:ti=\\Ev\\Ee:sr=\\EI:sf=^J";
  432. ! 
  433. ! #include <linea.h>
  434. ! #include <support.h>
  435. ! #endif
  436.   
  437.   static FILE *find_file(bp)
  438.   char *bp;
  439. ***************
  440. *** 268,278 ****
  441.           return fp;
  442.       else if (fp = fopen(DEFAULT_FILE, "r"))
  443.           return fp;
  444.       else if (fp = fopenp(DEFAULT_ROOT, "r", NULL))
  445.           return fp;
  446.       else {
  447.   #  ifdef GEMDOS
  448. !         strcpy (bp, term_default);
  449.   #  endif
  450.           return (FILE *) NULL;
  451.       }
  452. --- 479,507 ----
  453.           return fp;
  454.       else if (fp = fopen(DEFAULT_FILE, "r"))
  455.           return fp;
  456. +         else if (NULL !=
  457. +          (cp = findfile(DEFAULT_ROOT, getenv("PATH"), (char **)0)) &&
  458. +          (NULL != (fp = fopen(cp,"r"))))
  459. +                return fp;
  460. +             
  461. + /** this replaced by the above **
  462.       else if (fp = fopenp(DEFAULT_ROOT, "r", NULL))
  463.           return fp;
  464. + **/
  465.       else {
  466.   #  ifdef GEMDOS
  467. !         /* 
  468. !          * if we do not have any better information, then
  469. !          * we will try to glimpse screen sizes from Line-A variables
  470. !          */
  471. !         linea0();
  472. !         strcpy (bp, ":co#");
  473. !         (void) _ultoa((unsigned long) (V_CEL_MX + 1),
  474. !                   bp + sizeof(":co#") - 1, 10);
  475. !         strcat (bp, ":li#");
  476. !         (void) _ultoa((unsigned long) (V_CEL_MY + 1),
  477. !                   bp + strlen(bp), 10);
  478. !         strcat (bp, term_default);
  479.   #  endif
  480.           return (FILE *) NULL;
  481.       }
  482. ***************
  483. *** 280,285 ****
  484. --- 509,515 ----
  485.       return(fopen(DEFAULT_FILE,"r"));
  486.   # endif
  487.   }
  488. + #if 0  /* this is not used anymore */
  489.   
  490.   /*
  491.    *  INTERNAL FUNCTION
  492. ***************
  493. *** 360,365 ****
  494. --- 590,598 ----
  495.    * argument which can be NULL.  Otherwise this argument gets filled
  496.    * in the full path to the file.  Returns as does fopen().
  497.    */
  498. + 
  499. + /* On Atari ST use library routine findfile() instead */
  500. + 
  501.   static FILE *
  502.   fopenp(name, mode, pathname)
  503.   char *name, *mode, *pathname;
  504. ***************
  505. *** 393,395 ****
  506. --- 626,629 ----
  507.       return NULL;
  508.   }
  509.   #endif
  510. + #endif /* 0 */
  511. *** 1.7    1992/03/06 19:40:24
  512. --- xconsole.c    1992/04/19 16:43:35
  513. ***************
  514. *** 71,85 ****
  515.   } k_buf;
  516.   
  517.   static k_buf in_buf[NUMDEV];
  518. - #define IN_BUF(dev) (&in_buf[(dev) > 2 ? _console_dev : (dev)])
  519.   
  520.   /*
  521.    * what handle means:: 0-2: BIOS handle, 3: stdout, 4: stderr
  522.    */
  523.   
  524.   static short
  525.   LOOKUP(handle)
  526.   short handle;
  527.   {
  528.       switch(handle) {
  529.       case -3:
  530. --- 71,100 ----
  531.   } k_buf;
  532.   
  533.   static k_buf in_buf[NUMDEV];
  534.   
  535. + #define in_dev(dev) ((dev)>2 ? _console_dev : (dev))
  536. + 
  537. + #define IN_BUF(dev) (&in_buf[in_dev(dev)])
  538. + 
  539. + 
  540.   /*
  541.    * what handle means:: 0-2: BIOS handle, 3: stdout, 4: stderr
  542.    */
  543. + static short LOOKUP __PROTO((short handle));
  544. + static long raw_in __PROTO((int dev));
  545. + static long raw_instat __PROTO((int dev));
  546. + void flush_key_buff __PROTO((int dev));
  547. + #if 0
  548. + static void raw_out __PROTO((int dev, int c));
  549. + #endif
  550.   
  551.   static short
  552. + #ifdef __STDC__
  553. + LOOKUP(short handle)
  554. + #else
  555.   LOOKUP(handle)
  556.   short handle;
  557. + #endif
  558.   {
  559.       switch(handle) {
  560.       case -3:
  561. ***************
  562. *** 106,117 ****
  563.   raw_in(dev)
  564.   int dev;
  565.   {
  566. !     if (dev < 3)
  567. !         return Bconin(dev);
  568. !     else if (dev == 3)
  569. !         return Crawcin();
  570. !     else
  571. !         return Cauxin();
  572.   }
  573.   
  574.   #if 0
  575. --- 121,132 ----
  576.   raw_in(dev)
  577.   int dev;
  578.   {
  579. !   if (dev < 3)
  580. !     return Bconin (dev);
  581. !   else if (dev == 3)
  582. !     return Crawcin ();
  583. !   else
  584. !     return Cauxin ();
  585.   }
  586.   
  587.   #if 0
  588. ***************
  589. *** 132,143 ****
  590.   raw_instat(dev)
  591.   int dev;
  592.   {
  593. !     if (dev < 3)
  594. !         return Bconstat(dev);
  595. !     else if (dev == 3)
  596. !         return Cconis();
  597. !     else
  598. !         return Cauxis();
  599.   }
  600.   
  601.   /*
  602. --- 147,153 ----
  603.   raw_instat(dev)
  604.   int dev;
  605.   {
  606. !     return Bconstat(in_dev(dev));
  607.   }
  608.   
  609.   /*
  610. ***************
  611. *** 211,257 ****
  612.   int handle;
  613.   int n;
  614.   {
  615. !     long c;
  616. !     short i, j, waiting = 0;
  617. !     unsigned char ch;
  618. !     k_buf *p;
  619.       short dev;
  620.   
  621.       dev = LOOKUP(handle);
  622. -     p = IN_BUF(dev);
  623.   
  624. !     while (__check_signals && (raw_instat(dev) || waiting)) {
  625. !         c = raw_in(dev);
  626. !         if (!(__ttymode & RAW)) {
  627. !             ch = c & 0xff;
  628. !             if (ch == ('S'-'@')) {
  629. !                 waiting = 1;
  630. !             }
  631. !             else if (ch == ('Q'-'@')) {
  632. !                 waiting = 0;
  633. !             }
  634. !             else if (ch == __tchars[TC_INTRC]) {
  635. !                 p->head = p->tail;
  636. !                 raise(SIGINT);
  637. !             }
  638. !             else if (ch == __tchars[TC_QUITC]) {
  639. !                 p->head = p->tail;
  640. !                 raise(SIGQUIT);
  641. !             }
  642. !             else if (!waiting) {
  643. !                 i = p->head;
  644. !                 j = i + 1;
  645. !                 if (j >= KBUFSIZ) j = 0;
  646. !                 if (j != p->tail) {
  647. !                     p->buffer[i] = c;
  648. !                     p->head = j;
  649. !                 }
  650. !             }
  651. !         }
  652. !     }
  653. ! #if 0
  654. !     raw_out(dev, n);
  655. ! #endif
  656.       ch = n;
  657.       (void)Fwrite(handle, 1L, &ch);
  658.   }
  659. --- 221,234 ----
  660.   int handle;
  661.   int n;
  662.   {
  663. !     char ch;
  664.       short dev;
  665.   
  666.       dev = LOOKUP(handle);
  667.   
  668. !     if (__check_signals)
  669. !         flush_key_buff(dev);
  670. ! /*    raw_out(dev, n); */
  671.       ch = n;
  672.       (void)Fwrite(handle, 1L, &ch);
  673.   }
  674.